home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / tips & tricks (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  943b  |  35 lines
  1. 10 rem  magic menu
  2. 20 poke53280,14:poke53281,3
  3. 30 print"[147]"spc(13)"[212]ips & [212]ricks"
  4. 32 printspc(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 35 print" [215]hat would you like to do?"
  6. 40 print"  1 ==> [210]un [196][207][211] [196][201][211][193][194][204][197][210]"
  7. 42 print"  2 ==> [210]un [197][206][196] [198][201][206][196][197][210]"
  8. 44 print"  3 ==> [210]un [206][213][205][194][197][210] [208][201][195][203][197][210]"
  9. 46 print"  4 ==> [210]un [210][197][211][201][211][212][193][206][195][197]"
  10. 47 print"  5 ==> [210]un 64-[193][211][211][197][205][194][204][217]"
  11. 48 print"  6 ==> [210]un 64-[212][193][208][211]"
  12. 49 print"  7 ==> [210]eturn to [204][207][193][196][211][212][193][210]"
  13. 50 gosub100:print"[215]hich? ";
  14. 52 poke198,0:wait198,1:geta$:a=val(a$)
  15. 54 ifa<1ora>7then52
  16. 55 :
  17. 60 printa$
  18. 62 ifa=1thenf$="dos disabler"
  19. 64 ifa=2thenf$="end finder"
  20. 66 ifa=3thenf$="number picker"
  21. 68 ifa=4thenf$="resistance"
  22. 69 ifa=5thenf$="64-assembly"
  23. 70 ifa=6thenf$="64-taps"
  24. 71 ifa=7thenf$="hello connect":open15,8,15,"r0:star=star":input#15,er:close15
  25. 72 :
  26. 73 ifa=7ander<>63thenend
  27. 80 print"[147]"spc(11)"[204]oading program..."
  28. 82 :
  29. 85 print"[159]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  30. 90 :
  31. 100 forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
  32. 110 print"[144]"a$;:fori=1to23:print"*"spc(38)"*";:next:printleft$(a$,39)""
  33. 120 poke2023,42:poke56295,peek(55296)
  34. 130 return
  35.